* dbus.el (top): Check (featurep 'dbusbind).

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index ef84db1ccf71634b7d6a545a17d085953349b97d..6ecd0065606748262698f0a6d8907872599501be 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -32,6 +32,10 @@
 
 ;;; Code:
 
+;; D-Bus support in the Emacs core can be disabled with configuration
+;; option "--without-dbus".  Check it.
+(assert (featurep 'dbusbind) nil "D-Bus is not supported")
+
 (require 'xml)
 
 (defconst dbus-service-dbus "org.freedesktop.DBus"